home *** CD-ROM | disk | FTP | other *** search
/ Pornodelic / Pornodelic - Disc 2.iso / pc / data / opening.dir / 00002_ÅwCONFIG WINDOWÇÃäJï¬ÅBÅx.ls < prev    next >
Encoding:
Text File  |  1998-02-19  |  603 b   |  26 lines
  1. on beginmyconfig x, y, w, h
  2.   global myconfig
  3.   if objectp(myconfig) then
  4.     forget(myconfig)
  5.   end if
  6.   set horzorigin to the stageLeft + x
  7.   set vertorigin to the stageTop + y
  8.   set mywindowrect to rect(horzorigin, vertorigin, horzorigin + w, vertorigin + h)
  9.   set myconfig to window "CONFIG"
  10.   set the rect of myconfig to mywindowrect
  11.   set the fileName of myconfig to "CONFIG"
  12.   set the titleVisible of myconfig to 1
  13.   set the windowType of myconfig to 4
  14. end
  15.  
  16. on stopmyconfig
  17.   finishmyconfig()
  18. end
  19.  
  20. on finishmyconfig
  21.   global myconfig
  22.   if objectp(myconfig) then
  23.     forget(myconfig)
  24.   end if
  25. end
  26.